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-- Process. Mesa Edited by Redell on July 31, 1978 3:39 PM 

DIRECTORY 

ControlDefs: FROM "controldefs" USING [ 

Frame, FrameHandle, Free, Lreg, NullFrame, SetReturnFrame, StateVector] , 

InlineDefs: FROM "inlineders" USING [BITOR, BITSHIFT], 

NucleusDefs: FROM "nucleusdefs" , 

ProcessDefs: FROM "processdefs" USING [ 

ActiveWord, Broadcast, Clean, Condition, CurrentPSB, CurrentState, 
DefaultPriority, Def aul tTimeout, Disablelnterrupts, DIW, Empty, 
EnableAndRequeue, Enablelnterrupts, Enter, Exit, MonitorLock, Notify, 
NullQueueHandle, Priority, ProcessHandle, PSB, ReadyList, ReEnter, SDC. 
Ticks, TimeoutLevel , TimerGrain, UnlockedEmpty , Wait], 

SDDefs: FROM "sddefs" USING [ 

SD, sFirstProcess, sFirstStateVector , sFork, sJoin, sLastProcess, 
sProcessTrap]; 

Process: MONITOR LOCKS Processes 

EXPORTS NucleusDefs, ProcessDefs SHARES ProcessDefs » 
BEGIN OPEN ProcessDefs; 

PSBBase: CARDINAL ■ 0; 

Aborted: PUBLIC SIGNAL « CODE; 
TimedOut: PUBLIC SIGNAL « CODE; 
TooManyProcesses: PUBLIC ERROR « CODE; 

Processes: MONITORLOCK; 

frameReady, frameTaken, dead, rebirth: CONDITION; 

DyingFrameHandle: TYPE = POINTER TO dying ControlDefs . Frame; 

Fork: PUBLIC PROCEDURE [root: UNSPECIFIED] RETURNS [ProcessHandle] «• 
BEGIN 

sv: ControlDefs. StateVector; 
self: ControlDefs . FrameHandle; 
Forker: PROCEDURE [ProcessHandle]; 
newPSB: ProcessHandle; 
sv 4- STATE; 

WHILE '-Enter[@Processes] DO NULL ENDLOOP; 
self ^ REGISTER[ControlDefs.Lreg]; 
Forker <- LOOPHOLE[self . returnl ink]; 
IF LOOPHOLE[rebirth, Condition] . queue = Empty THEN 

BEGIN 

Exit[6Processes]; 

ERROR TooManyProcesses; 

END; 
newPSB <- (PSBBase+LOOPHOLE[rebirth, Condi tion]. queue) . 1 ink; 
newPSBt ♦- PSB[ 

link: newPSB.link, 

cleanup: Clean, 

timeout: 0, 

priority: CurrentPSB. priority , 

enterFailed: FALSE, 

detached: FALSE, 

fin:0, 

state: dead, -- in case of timeout before Notify (below) 

timeoutAllowed: TRUE, 

abortPend ing: FALSE, 

timeoutPending: FALSE, 

waitingOnCV: TRUE, 

frame: self]; 
Notify[6rebirth] ; -- wake up newPSB, and set alive; DEPENDS 
newPSB. state <- alive; -- on new process not preempting parent... 
ControlDefs.SetReturnFrame[ ControlDefs . Null Frame] ; 
Forker[newPSB] ; -- "returns" handle to site of FORK 
-- Note that the lines above are executed by the forking process, while 
"- the lines below are executed by the forked process. Note also that the 
-- monitor remains LOCKED during this Fancy footwork...! 
sv.dest <- root; 
sv. source <- End; 
Exit[@Processes] ; 
RETURN WITH sv 
END; 

deadFrame: DyingFrameHandle *- NIL; -- only for detached processes 
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End: PROCEDURE ■ 

BEGIN OPEN p: CurrentPSBt; 

sv: ControlDefs.StateVector; 

frame: DyingFrameHandle; 

sv <- STATE; 

WHILE ^-Enter[@Processes] DO NULL ENDLOOP; 

frame <- REGISTER[ControlDef s .Lreg] ; 

frame. state ♦■ alive; 

p. state <- frameReady; 

p.abortPending <- FALSE; ~- too late for Aborts: they no-op 

B ro ad c as t[ ©frameReady]; 

UNTIL p. state » frameTaken OR p. detached DO 

Wait[QProcesses, 0frameTaken, LOOPHOLE[f rameTaken , Condition]. timeout] ; 

WHILE -ReEnterC^Processes. QframeTaken] DO NULL ENDLOOP; 

ENDLOOP; 
IF deadFrame # NIL THEN 

BEGIN ControlDefs.Free[deadFrame]; deadFrame ^ NIL END; 
IF p. detached THEN deadFrame <- frame; -- Leave our frame for freeing 
frame. state <- dead; 
p. state ^ dead; 
Broadcast[0dead]; 

Wait[0Processes, ©rebirth, L0OPHOLE[rebirth , Cond ition] .timeout]; 

WHILE -ReEnterCQProcesses, ©rebirth] DO NULL ENDLOOP; -- dying process exits here; JOINing process 
♦*does below. 

sv.dest <- frame, return! ink; -- set to site of JOIN by Join 

sv, source ^ 0; 

Exit[@Processes]; 

RETURN WITH sv; 

END; 

Join: PUBLIC ENTRY PROCEDURE [process: UNSPECIFIED] 
RETURNS [ControlDefs.FrameHandle] » 
BEGIN 

p: ProcessHandle « process; 
frame: DyingFrameHandle; 

self: ControlDefs.FrameHandle = REGISTER[ControlDef s.Lreg]; 
Val idateProcess[p] ; 

WHILE p. state # frameReady DO WAIT frameReady ENDLOOP; 
-- guaranteed to be a dying frame by the time we get here 
frame <- LOOPHOLE[p, frame]; 
p. state <- frameTaken; 
BROADCAST frameTaken; 

WHILE frame, state A* dead DO WAIT dead ENDLOOP; 
frame, returnlink <- self . returnl ink; -- site of JOIN 
RETURN[frame] 
END; 

Detach: PUBLIC ENTRY PROCEDURE [process: UNSPECIFIED] » 
BEGIN 

p: ProcessHandle * process; 
Val idateProcess[p] ; 
p. detached <- TRUE; 
BROADCAST frameTaken; 
END; 

Abort: PUBLIC PROCEDURE [process: UNSPECIFIED] - 
BEGIN 

p: ProcessHandle « process; 
Val idateProcess[p]; 
Disablelnterrupts[]; 
IF p. state =• alive THEN 
BEGIN 

p.abortPending <- TRUE; 
IF p.waitingOnCV THEN 
BEGIN 

p.waitingOnCV <- FALSE; 

EnableAndRequeue[Nul IQueueHandle, ReadyList, p]; 
RETURN; 
END; 
END; 
Enablelnterrupts[]; 
END; 

Process Trap: PROCEDURE RETURNS [BOOLEAN] - 
BEGIN 
abort, timeout: BOOLEAN; 
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CurrentPSB.waitingOnCV ^ FALSE; 
abort <- CurrentPSB.abortPen>dilng; 
CurrentPSB.abortPending ^ FM.SE; 
IF abort THEN ERROR Aborted; 
timeout ^ CurrentPSB. timeout!*ending; 
CurrentPSB.timeoutPending <- FALSE; 
IF timeout THEN SIGNAL TimedOut; 
RETURN[FALSE] 
END; 

DisableScheduling: PUBLIC PROCEDURE " 
BEGIN 

Disablelnterrupts[]; 
SDCt ^ SDCt + 1; 
Enablelnterrupts[]; 
RETURN 
END; 

EnableScheduling: PUBLIC PROCEDURE - 
BEGIN 

Disablelnterrupts[]; 
SDCt 4- SDCt - 1; 

EnableAndRequeue[ReadyList, ReadyList, CurrentPSBt]; 
RETURN 
END; 

Yield: PUBLIC PROCEDURE ■ 
BEGIN 

Disablelnterrupts[]; 

EnableAndRequeue[ReadyList, ReadyList, CurrentPSBt]; 
RETURN 
END; 

GetPriority: PUBLIC PROCEDURE RETURNS [p: Priority] » 
BEGIN 

Disablelnterrupts[]; 
p <- CurrentPSB. priority; 
Enablelnterrupts[]; 
RETURN 
END; 

SetPriority: PUBLIC PROCEDURE [p: Priority] » 
BEGIN 

Disab1elnterrupts[]; 
CurrentPSB. priority ^ p; 

Enab1eAndRequeue[ReadyList, ReadyList, CurrentPSBt]; 
END; 

SetTimeout: PUBLIC PROCEDURE [ 

condition: POINTER TO CONDITION, ticks: CARDINAL] - 

BEGIN 

LOOPHOLE[condition. POINTER TO Condition] . timeout ♦- 

IF ticks # THEN ticks ELSE Def aul tTimeout; 
RETURN 
END; 

DisableTimeout: PUBLIC PROCEDURE [condition: POINTER TO CONDITION] - 
BEGIN 

LOOPHOLE[condition, POINTER TO Condition] . timeout ^ 0; 
RETURN 
END; 

MsecToTicks: PUBLIC PROCEDURE [ms : CARDINAL] RETURNS [Ticks] « 
BEGIN 

RETURN[{ms+TimerGrain'-l)/TimerGrain] 
END; 

TicksToMsec: PUBLIC PROCEDURE [ticks: Ticks] RETURNS [CARDINAL] - 
BEGIN 

RETURN[ticks*TimerGrain] 
END; 

InitializeMonitor: PUBLIC PROCEDURE [monitor: POINTER TO MONITORLOCK] 
BEGIN 

LOOPHOLE[monitor, POINTER TO Moni torLock]t *- UnlockedEmpty ; 
RETURN 
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END; 

InitializeCondition: PUBLIC PROCEDURE [ 

condition: POINTER TO CONDITION, ticks: CARDINAL] » 

BEGIN 

LOOPHOLE[condition, POINTER TO Condition]t i- Condition[no, Empty, ticks]; 

RETURN 

END; 

ValidateProcGss: PUBLIC PROCEDURE [p: ProcessHandle] - 
BEGIN OPEN SDDefs; 

Sd: POINTER TO ARRAY [0.,0) OF UNSPECIFIED <r SD; 
c: CARDINAL = LOOPHOLE[p]; 
IF c < SD[sFirstProcess] OR c > sd[sLastProcess] OR 

(c - sd[sFirstProcess]) MOD SIZE[PSB] ff THEN SIGNAL Inval idProcess[p] ; 
RETURN 
END; 

InvalidProcess: PUBLIC SIGNAL [process: ProcessHandle] - CODE; 

InitializeProcesses: PROCEDURE » 
BEGIN OPEN SDDefs; 

sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED <- SD; 
firstPSB: ProcessHandle <- sdCsFirstProcess]; 
lastPSB: ProcessHandle ♦- sd[sLastProcess]; 
psb: ProcessHandle; 
D i sab leTimeout[ ©dead]; 
DisableTimeout[@f rameReady]; 
DisableTimeout[@f rameTaken] ; 
DisableTimeout[0rebirth]; 
SDCt <r 0; 

CurrentStatet <- LOOPHOLE[sd[sFirstStateVector] + 
DefaultPriority*SIZE[ControlDefs.StateVector]]; 
-- locate and initialize PSBs 
sd[sProcessTrap] ^ ProcessTrap; 
sd[sFork] *- Fork; 
sd[sJoin] ^ Join; 
-- fabricate PSB for self 
lastPSBt <- PSB[ 
link: lastPSB, 
cleanup: Clean, 
timeout: 0, 
enterFailed: FALSE, 
detached: FALSE, 
fill: OB, 
state: alive. 
timeoutAl lowed: . 
abortPending: FALSE, 
timeoutPending: FALSE, 
waitingOnCV: FALSE, 
priority: Def aul tPriority , 
frame: REGISTER[ControlDef s .Lreg]]; 
CurrentPSBt ^ ReadyListt ♦- lastPSB; 
-- set up free PSB pool ("rebirth" condition) 
FOR psb ^ firstPSB, psb+SIZE[PSB] 
UNTIL psb « lastPSB DO 
psbt 4- PSB[ 

link: psb--SIZE[PSB], 
cleanup: Clean, 
timeout: 0, 
enterFailed: FALSE, 
detached: FALSE, 
fill: OB, 
state: dead, 
timeoutAl lowed: , 
abortPending: FALSE, 
timeoutPending: FALSE, 
waitingOnCV: TRUE, 
priority: Def aul tPriority . 
frame: ControlDef s .Nul IFrame]; 
ENOLOOP; 
LOOPHOLE[rebirth, Condition]. queue «- 

(firstPSB. link ♦- 1 astPSB-SIZE[PSB])-PSBBase; 
-- CVt already set up by Nova code 
ActiveWordt ^ 77777B; 
RETURN 
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END; 

InitializeTimeouts: PROCEDURE ■ 
BEGIN OPEN InlineDefs; 

TimeoutMask: WORD - BITSHIFT[l,TimeoutLeve1]; 
DisablGlnterrupts[]; 

-- Nova code has set up IntVec[TimeoutLevel] 
DlWt <r BITOR[DIWt, TimeoutMask]; 
Enab1elnterrupts[]; 
RETURN 
END; 



Initial izeProcesses[]; 
Initial izeTimeouts[]; 

END. 



